RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


*+F ILE**1D**NEWPAG 
a ¢ 
NN NN EEEEEEEEEE WW ww PPPPPPPP AAAAAA GGGGGGGG ; 3 
NN NN EEEEEEEEEE WW ww PPPPPPPP AAAAAA G6GGGGGGG 4 
NN NN EE Wid ww PP PP AA AA GG : ¢ 
NN NN EE wld ww PP PP AA AA GG ; § 
NNNN NN EE wl WW PP PP AA AA GG : ¢ 
NNNN NN EE wld Ww PP PP AA AA GG : ¢ 
NN NN NN EEEEEEEE Wl WW PPPPPPPP AA AA GG : @ 
NN NN NN EEEEEEEE WW WW PPPPPPPP AA AA GG : 2 
NN -NNNN EE WW Ww WW PP AAAAAAAAAA GG GGGGGG ae | 
NN NNNN EE Ww PP AAAAAAAAAA GG GGGGGG : 8 
N NN EE WWW WWW PP AA AA GG GG iene : ¢ 
NN NN EE WWW WWW PP AA AA GG GG yesio : ¢ 
NN NN EEEEEEEEEE WW ww PP AA AA —- GGGGGG ones i 2 
NN NN EEEEEEEEEE WW wee PP AA AA —- GGGGGG — : § 
i @ 
; ¢ 
LL eeeee SSSSSSSS : § 
LL HII SSSSSSSS ; 
LL I] SS : § 
LL 1] SS 2 § 
LL I] SS 2 § 
LL 1] SS 2 § 
LL 1] SSSSSS  § 
LL I] SSSSSS : 
LL I] SS ‘ 
LL I] SS : 
LL I] SS : 
LL 1] SS : 
LLLLLLLLLL « IIIIII — SSSSSSSS ; 
LLLLLLLLLEL §=—sT'II = SSSSSSSS : 
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MODULE NEWPAG ( : 
IDENT = 'V04-000' 
*BLISS32C 
ADDRESSING ~MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


)= 
BEGIN 


LR RRR EERE EAE AREER EAE EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


* 
* 
® 
*® 
* 
He one SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
hl Y IN ACCORDANCE WITH THE TER ate OF wave” LICENSE AND WITH THE * 
1 INCLUSION OF THE ABOVE Se avtoee OTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. e 
: « * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 

& 

* 

® 

*% 

* 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PETITITILILI LITTLE LI LLL TLL TIT Titi Ti iiiiiiiitit 
' 

i¢¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: Handles the top of the page. 


! 

i] 

i 

ENVIRONMENT: Transportable 

: AUTHOR: R.W.friday CREATION DATE: May, 1978 
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SBTTL ‘Revision History’ 


MODIFIED BY: 
026 


025 


37 AX-11 Bliss-32 V4.0-74 
& RUNOFF .SRCJNEWPAG.BLI; 


KAD00026 Keith Dawson 19-Mar-1983 


Fix bug (missing dot) so that FLIP .BFL ou 


KAD00025 Keith Dawson 07-Mar-19 
Global edit of all modules. Updated module 
copyright dates. Changed require files to 


tput works. 


83 


names, idents, 
BLISS library. 
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NEWPA ibese -1984 01:16:37 AX-11 Bliss-32 V4.0-74 P 
¥O4-000 Module Level Declarations 12-80-1384 04:48:37 RUNOFF SRC NEWPAG.BLI; age 33 


: $ 4 1 XSBTTL "Module Level Declarations’ : r 
3 8 $ 1! : 4 
3 2 $ ! TABLE OF CONTENTS: : , 
: 61 039 1 FORWARD ROUTINE - 4 
: 68 069 1 | NEWPAG : NOVALUE; zz 
: 664 06¢ 1 ! INCLUDE FILES: 3 4 
: & 065 1! ; 4 
; 66 064 1 : 4 
. ae 5 5 1 LIBRARY 'NXPORT:XPORT'; ' XPORT Library ; 4 
; 68 066 REQUIRE 'REQ:RNODEF'; i RUNOFF variant definitions 3 
: % U 0198 1 XIF DSRPLUS XTHEN : 4 
; 4 U 199 ! LIBRARY "REQ:DPLLIB'; ! DSRPLUS BLISS Library : ‘ 
3 ie 01 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library ; 4 
; 674 8 1 ZFI s 4 
s 0203 1 3 4 
. .- a 0204 1! : 4 
. °F 0205 1 ! MACROS ; 4 
3 78 0 38 1! 3 4 
(. 0207 1! ; 4 
s 80 0298 1 !' EQUATED SYMBOLS: ; 4 
; «81 0209 1! 7 4 
;- & 0210 1 ; 4 
 s 0211 1! 3 4 
s 684 0 \¢ 1 ! OWN STORAGE: ; 4 
]. Oe 021 1! ; 4 
: 686 0214 1! : 4 
; 687 0215 1 ! EXTERNAL REFERENCES: : 4 
; 88 0216 1! ; 4 
; «689 0217 1 3s 4 
:; 90 0218 1 EXTERNAL a4 
; 91 0219 1 FNESIZ : FN_EXT_SIZE_DEFINITION, 'Sizes of pending footnotes. 3 
2 8 0 1 FNCT : FNCT_DEFINITION, 'Footnote control table. : 4 
=.% ey PHAN : PHANDEFINITION;: 4 
3 (94 u 0 ¢ 1 ZIF DSRPLUS XTHEN 3: 4 
; «495 U 8 1 EXTERNAL 3 4 
; | (96 U 4 1 SCA : SCA_DEFINITION; : 4 
ae = Se 0225 1 1 3: 4 
; 98 $] ; 4 
; 299 1 EXTERNAL ROUTINE : 4 
: 100 8 1 F ‘ ; 4 
: 101 0399 1 BOTPAG, 3; 4 
; 102 0230 1 TOPPAG; 4 

s 4 

s 4 

gs 4 

: 4 

=: 4 

; 4 

s 4 

s 4 

SA 
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cccccc 
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FUN (OOO NOAUE UN $0 ODNAU EWN (OOO NOU EWN OOO VOUS Win 


zIF 
tFI 
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Be Se Ge Be Fe Bs Ge Be Se ee Fe Se Ge Be Ge Se FH Se SH Fe Se Ge Fe Ge Ge Ge Ge Ge Se Ge Bee Se Se Se Se Se Se Se Ge SF Se Se Se Gee F+ Se Se Se Seas 
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Module Level Declarations 
GLOBAL ROUTINE NEWPAG : NOVALUE = 


FORMAL PARAMETERS: 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


SIDE EFFECTS: None 


Heoseoctgne 01:16:37 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJNEWPAG.BLI; 


14 
! FUNCTIONAL DESCRIPTION: 


See ABSTRACT, above. 
None 


Implied here is that there is a Line of text that is to go on 
the page about to be started. 


None 


None 


BEGIN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

Z1F 

OCAL 
Ri L 
XFI 
Footnote expansion 
D ¢ 

THEN 


pennies XZTHEN 
hold_sca_header; 


hold _sca_header = .sca_header; 
sca_header = false; 


IF NOT .fnct_expanding 
AND (.phan_lines_tp NEQ 0) 


‘Output footnotes at the bottom of this page. 
foobot (); 


'Not already oapending footnotes. 
‘Wave generated something on the page. 


'Finish the bottom of the page, and do the book keeping that's associated with it. 
botpag (); 


'Now output the title, subtitle, etc. 
toppag (); 


DSRPLUS ZTHEN 
sca_header = .hold_sca_header; 


END; ‘End of NEWPAG 


-TITLE ver, 
- IDENT \V04-000\ 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
| 
5 
| 
5 
§ 
| 
P| 
3 
4 
P| 
« 
‘ 
P| 
P| 
| 
4 
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v 
ev 
o 
e 
w 
< 
F 
f 


«EXTRN FNESIZ, FNCT, PHAN : 

-EXTRN FOOBOT, BOTPAG, TOPPAG : 

-PSECT SCODE$,NOWRT,2 : 

000 -ENTRY wn Save nothing 3; 0231 ; 

OF 000000006 EF E BLBS ss FNCT creed is : 03 : 

Souese eA Hiss FROST HS) | 
9000 9 G EF 0 FB 11 CALLS #0, FOOBOT : 79 : 2 

00 99 G EF 0 FB 18 1$: CALLS #0, BOTPAG t 027 : 

00000006 _ EF 0 Ff 1F CALLS #0, TOPPAG : i: : 

04 26 RET ; 028 : 
; Routine Size: 39 bytes, Routine Base: SCODE$S + 0000 ; 
: 156 0283 1 | 
: 0284 1 END ‘End of module NEWPAG Mm 
158 0285 0 ELUDOM 2 3 
; § 
a 
; PSECT SUMMARY i 3 
3 Name Bytes Attributes : é 
: SCODES 39 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 ; 
| 
gs 4 
: Library Statistics : ; 
Te etc i ee ee ee Symbols -------- Pages Processing ; ; 
; File Total Loaded Percent Mapped Time : 3 
: _$255$DUA28: :{ES¥SL IBXPORT .132: 1 590 Q 0 252 00:0 ; 3 
; 7$255S$DUA28: (RUNOFF .SRCJDSRLIB.L32;1 124 0 86 0:0 : 3 
: COMMAND QUALIFIERS 3 : 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NEWPAG/OBJ=OBJ$:NEWPAG MSRC$:NEWPAG/UPDATE=(ENHS : NEWPAG) ; : 

3; Size: 39 ode + 0 data bytes ; 

; Run Time: 6 :02.5 3 

3 ELepsed Time :10.1 3 

3; Lines/CPU M Ain: 675 : 
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d: 22 
: cenit aioe Complete 
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